﻿/// /////////////////////////////////////////////
// 单元名 : SvrMainModule
// 作者 : Hawk
// 单元描述 :
// 日期 : 2023-09-15
/// /////////////////////////////////////////////

{$IFDEF FPC}
{$H+}
{$MODE DELPHI}
{$ENDIF}
program SvrMainModule;

uses
  {$IFNDEF FPC}
  Windows,
  {$ELSE}
  Interfaces,
  {$ENDIF }
  Forms,
  unitMisc,
  unitDDLinkList,
  unitMsgObj in '..\Common\unitMsgObj.pas',
  unitObjBase in '..\Common\unitObjBase.pas',
  unitCommonIntf in '..\Common\unitCommonIntf.pas',
  unitCommonIntfImpl in '..\Common\unitCommonIntfImpl.pas',
  unitTaskItem in '..\..\Common\unitTaskItem.pas',
  MainForm in 'MainForm.pas' {frmMain},
  unitSvrMngProcObj in '..\ServerMngModule\unitSvrMngProcObj.pas',
  unitUniqueDataProcObj in '..\ServerMngModule\unitUniqueDataProcObj.pas',
  unitFileAndTransObj in '..\NetModule\unitFileAndTransObj.pas',
  unitNetProcObj in '..\NetModule\unitNetProcObj.pas',
  unitLogProc in '..\ServerMngModule\unitLogProc.pas',
  unitTransProcObj in '..\ServerMngModule\unitTransProcObj.pas',
  unitTransactionFile in '..\Common\unitTransactionFile.pas',
  unitTransactionCommon in '..\Common\unitTransactionCommon.pas',
  unitAAAProcObj in '..\AAAModule\unitAAAProcObj.pas',
  unitAVSvrObj in '..\VideoAndAudioSvr\unitAVSvrObj.pas',
  unitCommonClasses in '..\Common\unitCommonClasses.pas',
  unitCompilerProc in '..\CompileSvr\unitCompilerProc.pas',
  unitMoveFileThread in '..\Common\unitMoveFileThread.pas',
  unitBinaryTree in '..\Common\unitBinaryTree.pas',
  unitRedBlackTree in '..\Common\unitRedBlackTree.pas',
  unitLotterProcObj in '..\ServerMngModule\unitLotterProcObj.pas';

{$R *.res}

begin
  Application.Initialize;
  Application.MainFormOnTaskbar := True;
  Application.CreateForm(TfrmMain, frmMain);
  Application.Run;

end.
